home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9003a.d64 / swap in .scr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  905b  |  47 lines
  1. 10 SYS9
  2. 20 .OPT OO
  3. 30 *=$1000
  4. 40 Z = $B0
  5. 50 SINUS = $1100
  6. 90 ;---------------- IRQ-INITIALISIEREN
  7. 100 SEI
  8. 105 LDA #0:STA $DC0E
  9. 110 LDA #$F1:STA $D01A
  10. 120 LDA #0:STA $D019
  11. 130 LDA #$1B:STA $D011
  12. 140 LDA #$1E:STA $D012
  13. 150 LDA #0:STA $3FFF
  14. 160 LDX #<IRQ
  15. 170 LDY #>IRQ
  16. 180 STX $314
  17. 190 STY $315
  18. 195 LDA #0:STA Z+1
  19. 196 LDA $1100:STA Z
  20. 200 CLI
  21. 210 RTS
  22. 220 ;----------------- NEUER RASTER-IRQ
  23. 300 IRQ LDX Z
  24. 310 ZMAL LDA $D012
  25. 320 ZEND CMP $D012
  26. 330 BEQ ZEND
  27. 340 AND #7:ORA #$18:STA $D011
  28. 350 DEX:BNE ZMAL
  29. 360 JSR M1
  30. 400 LDA #1:STA $D019
  31. 410 JMP $EA31
  32. 420 ;-------------- AENDERN DER HOEHE Z
  33. 500 M1 INC Z+1:LDY Z+1
  34. 510 CPY #255
  35. 520 BNE M2
  36. 530 LDA #$A5:STA M1
  37. 535 ;----------- WARTEN AUF SPACE-TASTE
  38. 540 LDA $DC01:CMP #239:BNE M2
  39. 550 LDA #$C6:STA M1
  40. 560 M2 CPY #0:BNE M3
  41. 564 ;--------- EVENTUELL NAECHSTE SEITE
  42. 565 INC $D020
  43. 570 LDA #$E6:STA M1
  44. 580 ;------------ NEUER WERT FUER HOEHE
  45. 590 M3 LDA SINUS,Y:STA Z
  46. 600 RTS
  47.